home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 3: The Continuation / 17-Bit_The_Continuation_Disc.iso / arug / arug 23 / dos-locator / dllll < prev    next >
Text File  |  1994-01-27  |  3KB  |  83 lines
  1.    GOTO DLLLL
  2. SELECTMENU:
  3.    CLEAR
  4.    CLS
  5.    PI=3.14159265#
  6.    PRINT:PRINT:PRINT "                          * SELECT PROGRAM *":PRINT:PRINT
  7.    PRINT "       ....1...DISTANCE & POINTS FROM LOCATORS FOR CONTESTS.....1.... "
  8.    PRINT "       ....2...CONVERT NGR TO LOCATOR & LAT/LONG................2.... "
  9.    PRINT "       ....3...DISTANCE FROM LAT/LONG TO LAT/LONG...............3.... "
  10.    PRINT "       ....4...CONVERT OLD & NEW LOCATORS TO LAT/LONG...........4.... "
  11.    PRINT "       ....5....................................................5...."
  12.    PRINT "       ....6....................................................6.... "
  13.    PRINT "       ....7....................................................7.... "
  14.    PRINT "       ....8....................................................8.... "
  15.    PRINT "       ....9....................................................9.... "
  16. 0  PRINT:PRINT
  17.    R$=INKEY$
  18.    IF R$ = "1" THEN LOAD "DPLC",R
  19.    IF R$ = "2" THEN LOAD "CNGRLLL",R 
  20.    IF R$ = "3" THEN GOTO  DLLLL
  21.    IF R$ = "4" THEN LOAD "CONLLL",R
  22.    IF R$ <> "" GOTO SELECTMENU
  23.    SLEEP
  24.    GOTO 0
  25.  
  26. DLLLL:
  27.    PI = 3.14159265#
  28.    CLS:PRINT
  29.    PRINT"    WHEN ENTERING LATITUDE AND LONGITUDE, THE DEGREES AND MINUTES FOR"
  30.    PRINT"    SOUTH LATITUDE AND EAST LONGITUDE MUST BE ENTERED AS NEGATIVES":PRINT
  31.    PRINT"               NORTH IS +                SOUTH IS -"
  32.    PRINT"               WEST  IS +                EAST  IS -":PRINT
  33. 31 PRINT"PLEASE INPUT THE HOME QTH NAME";
  34.    INPUT A$:PRINT
  35.    PRINT"ENTER DEGREES OF LAT: ";
  36.    INPUT BD:PRINT"ENTER MINUTES OF LAT: ";
  37.    INPUT BM:B=BD+(BM/60):PRINT:PRINT"ENTER DEGREES OF LONG: ";
  38.    INPUT CD:PRINT"ENTER MINUTES OF LONG: ";
  39.    INPUT CM:C=CD+(CM/60):PRINT:PRINT"PLEASE INPUT THE DX LOCATION NAME";
  40.    INPUT D$:PRINT:PRINT"ENTER DEGREES OF LAT: ";
  41.    INPUT ED:PRINT"ENTER MINUTES OF LAT: ";
  42.    INPUT EM:E=ED+(EM/60):PRINT:PRINT"ENTER DEGREES OF LONG: ";
  43.    INPUT FD:PRINT"ENTER MINUTES OF LONG: ";
  44.    INPUT FM:F=FD+(FM/60) 
  45.    FOR Z=1 TO 5500
  46.    NEXT Z
  47.    G=(90-B)/180*PI
  48.    K=ABS(C-F) 
  49.    L=(90-E)/180*PI
  50.    N=(G+L)/2
  51.    P=(G-L)/2
  52.    Q=(K/2)/180*PI
  53.    R=ATN(((COS(Q)/SIN(Q))*(COS(P))/COS(N)))
  54.    S=ATN((COS(Q)/SIN(Q))*SIN(P)/SIN(N))
  55.    T=ATN((SIN(P)/COS(P))*SIN(R)/SIN(S))
  56.    J=(2*T)/PI*180
  57.    U=INT ((J*69.113)+.5)
  58.    IF U<0 THEN U=U*(-1)
  59.    PRINT
  60.    PRINT A$
  61.    PRINT"    LATITUDE:";INT(B*1000)/1000;" DEGREES"
  62.    PRINT"   LONGITUDE:";INT(C*1000)/1000;" DEGREES"
  63.    PRINT
  64.    PRINT D$
  65.    PRINT"   LATITUDE:";INT(E*1000)/1000;" DEGREES"
  66.    PRINT"  LONGITUDE:";INT(F*1000)/1000;" DEGREES"
  67.    PRINT
  68.    PRINT"  THE DISTANCE FROM"
  69.    PRINT A$;"  TO"
  70.    PRINT D$;"  IS"
  71.    PRINT:PRINT U;" MILES OR ";INT(U*6336/3937);" KILOMETERS"
  72.    PRINT
  73.    PRINT"ANOTHER? (Y)es or (*) TO RETURN TO MENU ":PRINT
  74. 32 I$=INKEY$
  75.    IF I$="*" THEN GOTO SELECTMENU 
  76.    IF I$="Y"OR I$="y"THEN GOTO 31
  77.    SLEEP
  78.    GOTO 32
  79.    
  80.          
  81.  
  82.        
  83.